home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 17 Arcade _ Action Games / FOOTBA.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  7.8 KB  |  284 lines
  1. 0 PRINT"[147]****************************************"
  2. 1 PRINT"     [164][175][185][207] JDS SPORTS PRESENTS [208][185][175][164]  "
  3. 2 PRINT"     [163][183][184][204] COMMODORE FOOTBALL! [186][184][183][163]  "
  4. 4 PRINT"****************************************"
  5. 5 PRINT "[179] HIT ANY KEY [171]
  6. 6 [153] "OR (I) FOR INSTRUCTIONS"
  7. 7 [161] W$:[139] W$[178]"" [167] 7
  8. 8 [139] W$[178]"I" [167] 50000
  9. 10 [153]" HOME TEAM SIGN IN:"
  10. 11 [133]" CITY";HC$
  11. 12 [133]" TEAM NAME";HN$
  12. 13 [153]" VISITING TEAM SIGN IN:"
  13. 14 [133]" CITY";VC$
  14. 15 [133]" TEAM NAME";VN$
  15. 16 [129] Z[178]1[164]2000:[130]
  16. 19 [153]"LOAD WELCOME TO ";HC$;", WHERE THE ";HN$
  17. 20 [153]" WILL FACE THE ";VC$;" ";VN$;" IN"
  18. 21 [153]" WHAT APPEARS TO BE A GREAT GAME!"
  19. 22 [129] Z[178]1[164]4000:[130]
  20. 23 [153]" I SEE THE TEAM CAPTAINS ARE ON THE "
  21. 24 [153]" FIELD PREPARING FOR THE COIN TOSS..."
  22. 25 [153]" SO LET'S JOIN THE ACTION, LIVE!"
  23. 26 [129] Z[178]1[164]4000:[130]
  24. 27 C[178]0:[143] : COIN TOSS :
  25. 28 [153]"REFEREE: ";HC$;", CALL IT,"
  26. 29 [133]" HEADS OR TAILS?  (H/T)";CT$
  27. 30 A[178][181]([187](X)[172]10000)
  28. 31 [139] CT$[178]"H" [175] A[179]5000 [167] C[178]1
  29. 32 [139] C[178]1 [167] [137] 35
  30. 33 [153]" ";VC$;" WINS THE TOSS AND ELECTS":TB$[178]VN$
  31. 34 [153]" TO RECIEVE THE BALL.":[137] 40
  32. 35 [153]" ";HC$;" WINS THE TOSS AND WILL"
  33. 36 [153]" RECIEVE THE BALL.":TB$[178]HN$
  34. 40 [129] PP[178]1 [164] 3000:[130]
  35. 50 [141] 1000
  36. 55 [143]: PLAY SELECT :::::::
  37. 60 [139] FT[178]0 [167] [141] 6000
  38. 61 FT[178]1
  39. 62 [139] YL[179][178]SL[171]10 [167] D[178]1:SL[178]YL:[137]65
  40. 63 D[178]D[170]1:[139] D[177]4 [167] 30000
  41. 65 [139] D[178]0[167] D[178]1
  42. 66 KK[178]KK[170]1
  43. 67 [139] YL[179][178]SL[171]10 [167] D[178]1:SL[178]YL
  44. 68 [139] D[178]1 [167] SL[178]YL:TG[178]10:[137]85
  45. 69 TG[178]TG[171]E:[143] YARDS TO GO FOR 1ST DOWN
  46. 70 [139] KK[178]40 [167] [153]"2 MINUTE WARNING!"
  47. 71 [139] KK[178]50 [167] [153]" -HALF TIME-":OO[178]3:[137] 20000
  48. 72 [139] KK[178]90 [167] [153]"2 MINUTE WARNING!"
  49. 73 [139] KK[178]100 [167] [153]" -END OF GAME-":OO[178]7:[137] 20000
  50. 85 [153]"STATUS"
  51. 86 [153]"TAB(TAB(TAB(TAB(TAB(TAB("
  52. 87 [153]""TB$;"'S BALL ON THE";YL
  53. 88 [153]"YARD LINE, DOWN:"D;",";TG"TO GO"
  54. 90 [133]"NEXT PLAY";NP
  55. 91 [153]:[139] NP[177]8 [167] 90
  56. 92 [145] NP [141] 100,300,400,500,700,800,20000,6000
  57. 93 [139] YL[179][178]0 [167] 40000:D[178]1
  58. 94 [139] YL[177]100 [167] 2000
  59. 98 [137] 62
  60. 99 [143]: ** DIVE PLAY  (1) **
  61. 100 [143]: + OR - YARDS
  62. 101 Q [178] [181]([187](X)[172]100)
  63. 102 [139] Q [179] 10[167] P[178][171]1
  64. 103 [139] Q [178][177] 10[167] P[178]1
  65. 200 [143]: YARDAGE ON DIVE PLAY
  66. 201 W [178] [181]([187](X)[172]10)
  67. 202 [139] W [177] 4 [167] [137] 201
  68. 203 E[178]W[172]P
  69. 214 [153] " YARDAGE ON THE PLAY: ";E
  70. 225 YL[178]YL[171]E
  71. 226 [142]
  72. 299 [143]:******************************
  73. 300 [143]: YARDAGE ON RUN
  74. 301 [143]: + OR - YARDS
  75. 310 Q [178] [181]([187](X)[172]100)
  76. 320 [139] Q [179] 20[167] P[178][171]1
  77. 330 [139] Q [178][177] 20[167] P[178]1
  78. 331 [143]: YARDS ON PLAY
  79. 332 R [178] [181]([187](X)[172]10):T[178]0
  80. 333 [139] R [177] 7 [167] T[178]1
  81. 334 [139] T[178]1 [167] 340
  82. 335 W [178] [181]([187](X)[172]5)
  83. 336 [137] 360
  84. 340 W [178] [181]([187](X)[172]30):P[178]1
  85. 341 [139] W[179]10 [167] W[178]W[170]10
  86. 360 E[178]W[172]P
  87. 370 [153] " YARDAGE ON THE PLAY: ";E
  88. 371 YL[178]YL[171]E
  89. 375 [142]
  90. 399 [143]:******************************
  91. 400 [143]: YARDAGE ON SHORT PASS
  92. 401 [143]: + OR - YARDS
  93. 410 Q [178] [181]([187](X)[172]100)
  94. 420 [139] Q [179] 30[167] P[178][171]1
  95. 430 [139] Q [178][177] 30[167] P[178]1
  96. 431 [143]: YARDS ON PLAY
  97. 432 R [178] [181]([187](X)[172]10):T[178]0
  98. 433 [139] R [178][177] 8 [167] T[178]1
  99. 434 [139] T[178]1 [167] 440
  100. 435 W [178] [181]([187](X)[172]10)
  101. 436 [137] 450
  102. 440 W [178] [181]([187](X)[172]30):P[178]1
  103. 441 [139] W[179]10 [167] W[178]W[170]10
  104. 450 Y[178] [181]([187](X)[172]10)
  105. 451 [139] Y[177]6 [167] E[178]0: [153]" INCOMPLETE PASS": [137] 470
  106. 460 E[178]W[172]P
  107. 470 [153] " YARDAGE ON THE PLAY: ";E
  108. 471 YL[178]YL[171]E
  109. 475 [142]
  110. 499 [143]:******************************
  111. 500 [143]: YARDAGE ON LONG PASS
  112. 501 [143]: + OR - YARDS
  113. 510 Q [178] [181]([187](X)[172]100)
  114. 520 [139] Q [179] 25[167] P[178][171]1
  115. 530 [139] Q [178][177] 25[167] P[178]1
  116. 531 [143]: YARDS ON PLAY
  117. 532 [139] P[178]1 [167] [137] 540
  118. 533 ZZ[178][181]([187](X)[172]15):[139] ZZ[179]4 [167] 533
  119. 534 [153]" QUATERBACK SACKED":[153]" LOSS OF ";ZZ
  120. 535 YL[178]YL[170]ZZ:E[178]ZZ[172]([171]1):[137] 575
  121. 540 W [178] [181]([187](X)[172]30):P[178]1
  122. 541 [139] W[179]10 [167] W[178]W[170]10
  123. 550 Y[178] [181]([187](X)[172]10)
  124. 551 [139] Y[179]5 [167] E[178]0: [153]" INCOMPLETE PASS": [137] 570
  125. 560 E[178]W[172]P
  126. 570 [153] " YARDAGE ON THE PLAY: ";E
  127. 571 YL[178]YL[171]E
  128. 575 [142]
  129. 700 [143] :: PUNU SEQUENCE ::
  130. 702 W [178] [181]([187](X)[172]55)
  131. 703 [139] W[179]20 [167] 702
  132. 704 [139] W[177]50 [167] 708
  133. 705 [137] 714
  134. 708 [153] "PUNT IS BLOCKED!!":[153]"DEFENCE RECOVERS THE BALL"
  135. 709 O [178] [181]([187](X)[172]25)
  136. 710 YL[178][182](YL[170]O[171]100):D[178]0
  137. 711 [153]"AT THE";YL;"YARD LINE"
  138. 712 [139] TB$[178]HN$ [167] TB$[178]VN$:[137]751
  139. 713 TB$[178]HN$:[137] 751
  140. 714 [153]"THE KICK GOES ";W;" YARDS"
  141. 715 YL[178]YL[171]W
  142. 716 [139] YL[177]109 [167] [153]" TOUCHBACK":YL[178]80:[137] 741
  143. 720 O [178] [181]([187](X)[172]25)
  144. 730 [153]"AND IS RETURNED";O;"YARDS"
  145. 735 YL[178][182](YL[170]O[171]100)
  146. 736 [139] YL[177]99 [167] [153]" TOUCHBACK":YL[178]80:[137] 741
  147. 740 [153]"TO THE"YL"YARD LINE..."
  148. 741 [139] TB$[178]HN$ [167] TB$[178]VN$:[137]751
  149. 742 TB$[178]HN$
  150. 751 D[178]0
  151. 760 [142]
  152. 800 [143] :: FIELD GOAL ::
  153. 810 [139] YL[178][177]10 [167] 820
  154. 811 FG[178][181]([187](X)[172]10)
  155. 812 [139] FG [178][179]9 [167] [153] " KICK IS GOOD!!":[137] 10000
  156. 813 [153] " FIELDGOAL ATTEMPT IS MISSED"
  157. 814 [139] TB$[178]HN$ [167] TB$[178]VN$:[137] 816
  158. 815 TB$[178]HN$
  159. 816 [139] YL[179]20 [167] YL[178]80:D[178]0
  160. 818 YL[178][182](YL[171]100)
  161. 819 [142]
  162. 820 [139] YL[178][177]20 [167] 830
  163. 821 FG[178][181]([187](X)[172]10)
  164. 822 [139] FG [178][179]8 [167] [153] " KICK IS GOOD!!":[137] 10000
  165. 823 [153] " FIELDGOAL ATTEMPT IS MISSED":[137] 814
  166. 830 [139] YL[178][177]30 [167] 840
  167. 831 FG[178][181]([187](X)[172]10)
  168. 832 [139] FG [178][179]7 [167] [153] " KICK IS GOOD!!":[137] 10000
  169. 833 [153] " FIELDGOAL ATTEMPT IS MISSED":[137] 814
  170. 840 [139] YL[178][177]40 [167] 850
  171. 841 FG[178][181]([187](X)[172]10)
  172. 842 [139] FG [178][179]5 [167] [153] " KICK IS GOOD!!":[137] 10000
  173. 843 [153] " FIELDGOAL ATTEMPT IS MISSED":[137] 814
  174. 850 [139] YL[178][177]50 [167] 860
  175. 851 FG[178][181]([187](X)[172]10)
  176. 852 [139] FG [178][179]3 [167] [153] " KICK IS GOOD!!":[137] 10000
  177. 853 [153] " FIELDGOAL ATTEMPT IS MISSED":[137] 814
  178. 860 [153] " FIELDGOAL ATTEMPT IS MISSED":[137] 814
  179. 863 [143]
  180. 875 [142]
  181. 975 [142]
  182. 1000 [143] ::  KICKOFF SEQUENCE  ::
  183. 1001 [153]"FRE(null) (WHISTLE BLOWS...)"
  184. 1002 W [178] [181]([187](X)[172]65)
  185. 1003 [139] W[179]30 [167] 1002
  186. 1014 [153]"THE KICKOFF GOES ";W;" YARDS"
  187. 1020 O [178] [181]([187](X)[172]25)
  188. 1030 [153]"AND IS RETURNED";O;"YARDS"
  189. 1035 YL[178] 35[170]W[171]O
  190. 1040 [153]"TO THE"YL"YARD LINE..."
  191. 1050 [129] PP[178]1 [164] 3000:[130]
  192. 1051 D[178]0:E[178]0
  193. 1060 [137] 60
  194. 2000 [153]"SAFETY"
  195. 2010 [139] TB$[178]HN$ [167] TB$[178]VN$:VS[178]VS[170]2:[137]2020
  196. 2015 TB$[178]HN$:HS[178]HS[170]2
  197. 2020 [137] 1000
  198. 6000 [153]"SELECT FROM THE FOLLOWING PLAYS:"
  199. 6100 [153]"(1) DIVE       (5) PUNT     "
  200. 6200 [153]"(2) RUN        (6) FIELD GOAL"
  201. 6300 [153]"(3) SHORT PASS (7) SCOREBOARD"
  202. 6400 [153]"(4) LONG PASS  (8) REPRINT THIS MENU"
  203. 6405 E[178]0:[137] 65
  204. 10000 [143] FIELDGOAL SCORING
  205. 10001 [139] TB$[178]HN$ [167] TB$[178]VN$:HS[178]HS[170]3:D[178]0:[137] 1000
  206. 10002 TB$[178]HN$:VS[178]VS[170]3:D[178]0
  207. 10003 [137] 1000
  208. 20000 [139] OO[178]7 [167] 21000:[143] SCOREBOARD
  209. 20001 [139] OO[178]3 [167] 20003:[143] SCOREBOARD
  210. 20002 [137] 20011
  211. 20003 [153]"TEAM      HALF-TIME SCORE"
  212. 20004 [153]"-------------------------"
  213. 20005 [153]VC$" "VN$"        "VS
  214. 20006 [153]HC$" "HN$"        "HS
  215. 20007 [129] WW[178]1 [164] 4000:[130] WW
  216. 20008 [139] C[178]1 [167] TB$[178]VN$:[137] 1000
  217. 20009 TB$[178]HN$:[137] 1000
  218. 20010 [143]
  219. 20011 [153]"TEAM                SCORE"
  220. 20012 [153]"-------------------------"
  221. 20013 [153]VC$" "VN$"        "VS
  222. 20014 [153]HC$" "HN$"        "HS
  223. 20015 E[178]0:[137] 65
  224. 21000 [143]
  225. 21001 [153]"TEAM          FINAL SCORE"
  226. 21002 [153]"-------------------------"
  227. 21003 [153]VC$" "VN$"        "VS
  228. 21004 [153]HC$" "HN$"        "HS
  229. 21005 [153]"ANOTHER GAME (Y/N)"
  230. 21010 [161] W$: [139] W$[178]""[167] 21010
  231. 21011 [139] W$[178]"Y"[167] [140]:[137] 0
  232. 21012 [128]
  233. 30000 D[178]1:[153]"LOSS OF POSSESSION ON DOWNS"
  234. 30001 [139] TB$[178]HN$ [167] TB$[178]VN$:[137]30010
  235. 30002 TB$[178]HN$
  236. 30010 YL[178][182](YL[171]100)
  237. 31000 [137] 65
  238. 40000 [153]" (null)(null) TOUCHDOWN (null)(null)"
  239. 40094 [139] TB$[178]HN$ [167] TB$[178]VN$:HS[178]HS[170]7:[137] 1000
  240. 40095 TB$[178]HN$:VS[178]VS[170]7
  241. 40096 [137] 1000
  242. 50000 [153]"LOAD****************************************"
  243. 50002 [153]"     TOANDPOS(null) JDS SPORTS PRESENTS (null)POSANDTO  "
  244. 50003 [153]"     TAB(USRFRE(null) COMMODORE FOOTBALL! SQRFREUSRTAB(   "
  245. 50004 [153]"****************************************"
  246. 50006 [153]" -=[ FOOTBALL ]=-   THE RULES IN THIS"
  247. 50007 [153]"SIMULATION ARE THE SAME AS IN ANY "
  248. 50008 [153]"FOOTBALL GAME.  THE ONLY DIFFERENCE"
  249. 50009 [153]"BEING THAT THE GAME IS SET ON A 100"
  250. 50010 [153]"YARD GRID, YARDLINES NUMBERED FROM"
  251. 50011 [153]"1 TO 100. (AS OPPOSED TO 1 TO 50 TO 1)"
  252. 50012 [153]"SO DON'T BE CONFUSED IF IT SAYS YOU'RE"
  253. 50013 [153]"ON THE 65 YARDLINE.  THAT'S EQUILIVENT"
  254. 50014 [153]"TO BEING ON YOUR 35."
  255. 50015 [153]"(ANY KEY TO CONTINUE)
  256. 50016 GET W$:IF W$=""THEN 50016
  257. 50017 PRINT"[147]****************************************"
  258. 50018 PRINT"     [164][175][185][207] JDS SPORTS PRESENTS [208][185][175][164]  "
  259. 50019 PRINT"     [163][183][184][204] COMMODORE FOOTBALL! [186][184][183][163]   "
  260. 50020 PRINT"****************************************"
  261. 50021 PRINT"AS HEAD COACH, YOU WILL BE GIVEN  "
  262. 50022 PRINT"A MENU WITH 6 PLAYS TO CHOOSE FROM."
  263. 50023 PRINT"SELECT YOUR PLAYS WISELY.    "
  264. 50024 PRINT"DON'T WORRY IF YOU FORGET WHICH"
  265. 50025 PRINT"PLAY IS WHICH, YOU CAN BRING UP"
  266. 50026 PRINT"THE MENU AGAIN AT ANY TIME."
  267. 50027 PRINT"GOOD LUCK!  (ANY KEY TO CONTINUE)"
  268. 50028 GET W$:IF W$=""THEN 50028
  269. 50030 PRINT"[147]****************************************"
  270. 50032 PRINT"     [164][175][185][207] JDS SPORTS PRESENTS [208][185][175][164]  "
  271. 50033 PRINT"     [163][183][184][204] COMMODORE FOOTBALL! [186][184][183][163]   "
  272. 50034 PRINT"****************************************"
  273. 50036 PRINT"THIS PROGRAM IS FREE OF CHARGE. "
  274. 50037 PRINT"IT COST ME NOTHING TO WRITE EXCEPT"
  275. 50038 PRINT"A FEW NIGHTS TINKERING WITH FORMULAS "
  276. 50039 PRINT"AND SUCH TO GET IT TO WORK.  I BELIEVE"
  277. 50040 PRINT"I HAVE REMOVED ALL THE BUGS FROM IT   "
  278. 50041 PRINT"BUT IF YOU DO FIND ONE, PLEASE LET ME"
  279. 50042 PRINT"KNOW.  I CAN BE REACHED ON COMPUSERVE."
  280. 50043 PRINT"EMAIL TO:  73117,1222.  THANKS."
  281. 50044 PRINT"(ANY KEY TO BEGIN)"
  282. 50048 GET W$:IF W$=""THEN 50048
  283. 50049 PRINT"[147]":GOTO 10
  284.